﻿Imports DAO
Imports DTO
Public Class CKhoiLopBUS

    Public Function LayDanhSachKhoiLop() As List(Of CKhoiLopDTO)
        Dim _dao As New CKhoiLopDAO()
        Dim _danhsachkhoilop As New List(Of CKhoiLopDTO)
        _danhsachkhoilop = _dao.LayDanhSachKhoiLop()
        Return _danhsachkhoilop
    End Function

    Public Function ThemKhoiLop(ByVal _KLdto As CKhoiLopDTO) As Integer
        Dim _dao As New CKhoiLopDAO()
        Dim _kt As Integer = _dao.ThemKhoiLop(_KLdto)
        Return _kt
    End Function

    Public Function CapNhatKhoiLop(ByVal _KLdto As CKhoiLopDTO) As Integer
        Dim _dao As New CKhoiLopDAO()
        Dim _kt As Integer = _dao.CapNhatKhoiLop(_KLdto)
        Return _kt
    End Function
End Class
